home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE06 / CONSTRUC / FILEINFO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-11  |  679 b   |  30 lines
  1. unit Fileinfo;
  2. interface
  3. uses
  4.   Classes, SysUtils;
  5.  
  6. Type
  7.   TFileInfo = class(TComponent)
  8.   private
  9.     FFileName: TFileName;
  10.     FFileMode: Word;
  11.   published
  12.     property FileName: TFileName read FFileName write FFileName;
  13.     property FileMode: Word read FFileMode write FFileMode;
  14.   end;
  15.  
  16. procedure Register;
  17.  
  18. implementation
  19. uses DsgnIntf, FileProp, FileName;
  20.  
  21. procedure Register;
  22. begin
  23.   RegisterComponents('Dr.Bob', [TFileInfo]);
  24.   RegisterPropertyEditor(TypeInfo(Word), TFileInfo,
  25.                         'FileMode', TFileModeProperty);
  26.   RegisterPropertyEditor(TypeInfo(TFilename), nil,
  27.                         '', TFilenameProperty)
  28. end;
  29.  
  30. end.